define len
proc(l)
	i:=1;
	size:=0;
	while i do 
	p:=nullp(l);	
	if p 
	then i:=0 	
	else 
	size:=size + 1; 
	l:=cdr(l)
		
	fi 
	od;
	return:=size
	
end;

a:=[1,2,3,[1,2],4];
l:=len(a)
	
